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Abstract. 

The main aim of this paper is to present a program on computer for decide 
if an universal algebra is a groupoid. Using the theory of groupoids and the 
program BGroidAPl we prove a theorem of classification for the groupoids 
of type (4; 2). ^ 

Introduction 

The algebraic notion of groupoid was introduced and named by H. 
Brandt in the paper [ Uber eine Verallgemeinerung der Gruppen-begriffes. 
Math. Ann., 96, 1926, 360-366 ]. A groupoid ( in the sense of Brandt ) can 
be thought of as a generalized group in which only certain multiplications 
are possible and it contains several neutral elements. 

Groupoids also appeared in Galois theory in the description of relations 
between subfields of a field K via morphisms of K in a paper of A. Loewy [ 
Neue elementare Begrundung und Erweiterung der Galoisschen Theorie. S.- 
B. Heidelberger Akad. Wiss. Math. Nat. K1.1925, 1927 ]. In differentiable 
context, the concept of groupoid has appeared in the work of C. Ehresmann 
[Gategories et structures. Dunod, Paris ] around 1950. 

In the language of categories, a groupoid is a small category in which all 
morphisms are invertible. For more details concerning the groupoids and its 
applications in many areas of mathematics, see [1] - [4], [6] - [8]. 

The plan of this paper is as follows. In the first section we have collected 
the preliminary concepts concerning groupoids. In the second section we 
present an algorithm for to verify that a finite set endowed with structure 
functions has a groupoid structure. This algorithm is based on the theory 
of groupoids and is implemented on computer. The obtained program is 
denoted by BGroidAPl. Finally, we ilustrate the utilisation of the program 
on some finite universal algebras. In particular, the program can be used 
for to test if a finite set endowed with a composition law has a structure of 
group. 

1. The concept of Brandt groupoid as universal algebra 

Definition 1.1. Let (M, Mq) be a pair of nonempty sets, where Mq 
a subset of M endowed with the surjections a, f3 : M Mq , called 
the source and the target map, respectively and a ( partial ) multiplication 

^AMS classification: 20L13, 68W10. 
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law fi : M(2) — > M,{x,y) — > n{x,y), where M(2) = { {x,y) G 
M X M I I3{x) = a(y) }. We write sometimes x ■ y or for fx(x,y). 
The dements of AI(^2) ^'I'c called com^posable pairs of Af. 

We say that the universal algebra (M, a, /3, /x; Mq) is a semigroupoid, if 
the multiplication law is associative, i.e. (xy)2; = x{yz), in the sense that, 
if one side of the equation is defined so is the other one and then they are 
equal( the element {xy)z is defined iff (3{x) = a{y) and /3(y) = a{z)). □ 

Definition 1.2. ([4]) A monoidoid is a semigroupoid {M, a, P, ji; Mq) 
such that the identities property holds, i. e. for each x G M we have 
{a{x),x), (a;,/3(x)) G M(2) and a{x)x = xP{x) = x. □ 

The element a{x) [ rcsp. (3(x) ] denoted sometimes by ui{x) [ 
resp. Ur{x) ] is the left unit [ resp. right unit] of x G M. The subset 
Mo = a{M) = I3{M) of M is called the unit set of M and we say that M 
is a Mo - monoidoid. The functions a, /9, jU are called structure functions 
of the monoidoid M. For each n G Mo, the set a~^{u) (resp., I3~^{u) 
) is called a -fibre ( resp., /3 -/i6re ) of the monoidoid M over u G Mq. 

In the following proposition we summarize some properties of the struc- 
ture functions of a monoidoid. 

Proposition 1.1. ( [4] ) Let {M,a,l3,ii;Mo) and u,v E Mq. Then 
the following assertions hold: 

(1.1) a{u) = (3{u) = u and u-u = u for all u E Mq; 

(1.2) a{xy) = a{x) and /3{xy) = P{y), {y) {x,y) e M^^)', 

(1.3) if {x,u) G M(2) such that xu = x then u = (3{x)\ 

(1.4) if {v,x) & M(2) such that vx = x then v = a(x); □ 
Example 1.1. (i) A monoid M having e as unity, is just a {e} - 

monoidoid over a one point-base in the following way: M = M, Mq = {e}, 
the source and target maps a, (3 : M Mq are constant maps, i.e. 

a{x) = f5{x) = e for all x G M ; for all x,y & M we have a(x) = /3(x) = e 
and hence the product x -y is always defined in M ( x • y is the product 
of elements x and y in the monoid M ). 

Conversely, every monoidoid M with one unit ( i.e. Mq is a singleton 
) is a monoid. 

{ii) The nul monoidoid over a set. Any nonempty set X may be 
regarded as a monoidoid on itself with the following monoidoid structure : 
M = Mo = X,Q. = P = Idx ; the elements x,y G X are composable iff 
X = y and we define x • x = x. 

(m) Disjoint union of two monoidoids. Let (Mi,ai, Pi, /if, Mg^i) ,i = 
1, 2 be two monoidoids such that MinM2 = 0. We consider M = M1UM2 
and M(2) = Mi,(2) U M2,(2) . 

We give on the set M the following structure: 
a(x) = ai(x) if X G Mi and a(x) = a2(x) if x G M2; 
P{x) = Pi{x) if X G Ml and P{x) = P2{x) if x G M2; 
we have that (x, y) G M(2) iff {x,y) G Mi (2) or (x,y) G M2^(2) and we 
take n{x,y) = fii{x,y) if (x, y) G Mj_(2) , i = 1, 2. 
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In other words, two elements x,y & M may be composed iff they he in 
the same monoidoid Mj, i = 1,2 and they are composablc in Mi, i = 1,2. 

In the case when Mi fl M2 ^0, wc cosider the sets M[ = Mi x 
{!}, M2 = M2 X {2} and we give on the set M[ UM2 the above monoidoid 
structure. 

This monoidoid is denoted by Mi ]J M2 and is cahed the disjoint union 
of monoidoids Mi and M2. Its unit set is Mq = Mi^o U M2,o, where Mj^o 
is the unit set of Mj, i = 1,2. 

In particular, the disjoint union of monoids Mj, i = 1,2 is a monoidoid, 
called the monoidoid associated to monoids Mi, i = 1,2 (for this monoidoid, 
the unit set is Mo = {61,62} where 6j is the unity of Mi,i = 1,2 ). 

(i?;) Let the nul monoid Mi = {e} and the multiplicative monoid 
M2 = { - 1,0,1 }CZ. Then M = Mi U M2 = { 6,1,0,-1} is a 
monoidoid over Mq = {e, 1 }. □ 

Example 1.2. (i) The m,onoidoid 3^{S,X) . Let X be a given 
noncpmty set. We denote by ^{S, X) = { f : S X | (V) 5 such that 7^ 
sex}. For / G X), let D{f) be the domain of / and let R{f) = 
/(£>(/)). For M = 3^{S,X) let M(2) = {(/, 5) e M x M | = L>(5) } 
and for {f,g) E M(2) define 5) = go f. If Jd^ denotes the identity 
map on S, then Mq = { Ids \ ^ S ^ X } is the set of units of M. 
The maps a,[3 : M M are defined by q(/) = Id£,(^f^, f3{f) = Idj^^jy 
Thus ?'(<S', X) ia a monoidoid, called the monoidoid of functions from S 
to X , where S is an arbitrary nonempty subset of the set X . 

(ii) Let Oxy be a system of cartesian coordinates in a plane. We 
consider the subsets Ox = {{x, 0) G | (V) x G R } and Oy = {(0, y) G 
R2 I (V) y G R } of X = R2. Let M = {/i = Idoxj2 = Idoy,fz = 
o'Ox, fi = o'Oy } C 3"(S', R^) where the functions /a : Ox Oy, f^ : 
Oy Ox are defined by /3(a;,0) = (0,x) and /4(0,y) = iy,0) ( crox 
resp. (TOy is called the saltus function defined on x -axis resp. y -axis ). 

The set of composable pairs of M is 
M(2) = { (/i, /i); (/i, /s); (/2, /2); (/2, A); (/a, /2); (/a, /4); (/4, /i); (A, /s) }■ 

We have: 

/^(/i, fl) = /i o /i = /i G M; //(/i, /s) = /3 o /i = /3 G M; ^^{f2, f2) = 
/2 o /2 = /2 G M; 

Kf2, fi) = /4 o /2 = /4 e M; Ai(/3, /2) = /2 O /3 = /3 G M; Ai(/3, /4) = 

/4 o /s = /i G M; 

/^(/4, /l) = /l O /4 = /4 G M; /x(/4, /a) = /3 O /4 = /2 G M. 

The unit set of M is Mq = { /i = Idox^ /2 = -'^doy }• The source and 

target map a, /? : M Mq are given by 

= = /i; a(/2) = /3(/2) = /2; "(/s) = /3(/4) = /i; a(/4) = 

m) = h- 

We obtain that (M = { /i,/2,/3,/4 },a,/?;Mo = { /i,/2 } ) is a 
monoidoid. □ 
Definition 1.3. Let {G,a, P, fi;Go) be a monoidoid endowed with 
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an injective map t : G — > G, cc — > ''(x), called the inversion map 
( we shall write for l{x) ). We say that {G,a, P, jj,, r,Go) is a 

groupoid, if the inverses property holds, i.e. for each x G G we have 
{x~^,x), (x, G G(2) and x^^x = (3{x), xx~^ = a{x). □ 

The subset Go = Q;(G) = /3(G) of G is called the unit set of G 
and we say that G is a Go - groupoid. For all unit u G Gq we have 
a{u) = f3{u) = i{u) = u. 

A Go -groupoid G will be denoted by (G, a,/3;Go) or (G;Go). The 
maps a, (3, /j, and l are called the structure functions of G. The map 
(a, /3) : G — >■ Go x Go, x — > (a,/3)(a;) = (a(,T), /3(,t)) is called the anchor 
map of the groupoid G. A groupoid {G, a, (3; Gq) is called transitive, if 
the anchor map (a, /3) : G — > Go x Go is surjective. 

By group bundle we mean a Gq -groupoid G such that a{x) = (5{x) 
for all x £ G . Moreover, a group bundle is the union of its isotropy groups 
G{u) = a^^{u),u G Go (here, two elements may be composed iff they lie in 
the same fiber a~^{u) ). 

If {G,a, P;Go) is a groupoid then Is{G) = {x G G | a{x) = /3{x)} is 
a group bundle, called the isotropy group bundle of G. 

Remark 1.1. (i) The definition of the Brandt groupoid is essentially 
the same as the one given by A. Coste, P. Dazord and A. Weinstein in [2]. 

(ii) A groupoid is a monoidoid in which every element is invertible. □ 

Example 1.3. (i) We consider monoidoid M = {e, 1,0, — 1 } over 
Mo = {e, 1 }, see Example 1.1 (iv). This monoidoid is not a groupoid, since 
the element is not invertible. 

{a) Let M = {fi = Idox,f2 = IdoyJsJi} where Ox = {(x,0)g 
R2|(V)xgR}, Oy= {(0,y)GR2|(V)yGR}, fs : Ox ^ Oy, {x,0) 
^ /3(.x,0) = (0,x) and U : Oy ^ Ox, (0,2/) ^ f^{0,y) = {y,0). We 
have that (M = { /i, /2, /s, /4 }, a, -^o = { /i, /2 } ) is a monoidoid, see 
Example 1.2 (h). 

We define the map l : M — M by taking t(/i) = /i, i(/2) = 

/2) '-(/s) = /4 and t^ifi) = fs- It is easy to verify that {M,a, (3, fi, l; Mq) 
is a groupoid, called the groupoid of saltus functions defined on the axes of 
coordinates in a plane. We will denote this groupoid by 5'(4.2)(R^). 

The groupoid (G = %2)(R^) = {/i,/2,/3,/4},a,/3,/x,i;Go = {/i,/2}) 
is a transitive groupoid. Indeed, 

for {fi,fi) G Go X Go exists /i G G such that a{fi) = fi and P{fi) = fi 
for i = 1,2; 

for (/i,/2) G GoxGo exists /a G G such that aifs) = fx and /^(/s) = /2, 
and 

for (/2,/i) G GoxGo exists /4 G G such that a{f^ = f^ and /3(/4) = /i. 
Hence, the anchor map is surjective. □ 

In the following proposition we summarize some properties of the struc- 
ture functions of a groupoid obtained directly from definitions. 

Proposition 1.2. Let {G,a,P,fj,,L;Go) be a groupoid and u G Go- 
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Then the following assertions hold: 

(1.5) a{x~^) = (3{x), (3{x^^) = a{x) and {x''^)~^ = x, for all x € G; 

(1.6) (cancellation law ) If x ■ zi = x ■ Z2 ( resp., zi ■ x = Z2 ■ x ), then 

(1.7) G(ti) = a~^(u) n /3~^(n) = {x G G | a{x) = /3(x) = u } is a group 
under the restriction of ^ to G{u), called the isotropy group at u of G; 

(1.8) // G is transitive, then the isotropy groups G{u), u E Gq are 
isomorphes. 

Proof. Using the Proposition 1.1 ( each groupoid is a monoidoid ) and 
the definitions, it is easy to prove that the assertions (1.5) — (1.8) are vaUd. 
□ 

Definition 1.4. Let {G,a, P, ^, i;Go) and {G' , a' , f3' , /i' , l' ; Gq) be 
two groupoids. A morphism of groupoids or groupoid morphism from G 
into G' is a map f:G — > G' such that /(/x(x, y)) = /x'(/(x), /(j/)) for 
all {x,y) € G(2). □ 

A morphism of groupoids f : G G' such that the map / is bijective 
is called isomorphism of groupoids or groupoid isomorphism. 

The category "BSroid of groupoids has as its objects all groupoids 
{G,a,l3;Go) and as morphisms from (G, a,/3;Go) to (G', a', /?'; Gq) the 
set of morphisms of groupoids. 

Example 1.4. (i) A group S having e as unit element is just a {e} - 
groupoid and conversely, every groupoid with one unit element is a group. 
It follows that the category Sr of groups is a subcategory of the category 
"BQroid. 

{a) Any nonempty set Go may be regarded as a nul monoidoid on 
itself ( see. Example 1.1 (ii) ). If we consider the map t : Go ^ Go as the 
identity map on Gq, we obtain that (Go, a = P = Idoo, /J-, — IdGo',Go) 
is a groupoid, called the nul groupoid associated to set Gq. 

(m) Disjoint union of two groupoids. Let {Gi,ai, Pi, /li, ii;Go^i) ,i = 
1,2 be two groupoids such that Gi n G2 = 0. 

We consider the disjoint union (G = Gi ]J G2, a, /?, fi; Gq = Gi^o LJ ^^2,0) 
of the monoidoids Gi and G2 ( see, Example 1.1 (iii) ). 

We define the map l : G — >■ G by taking i{x) = ii{x), if x E Gi 
and l{x) = t2{x) if x E G2. We have that (G = Gi ]J G2, a, P, fi, l; Gq = 
Gifl Y[ ^2,0) is a groupoid, called the disjoint union of the groupoids Gi 
and G2. 

In particular, the disjoint union of groups Gi, i = 1,2 is a groupoid, 
called the groupoid associated to groups Gi, i = 1,2 (for this groupoid, 
the unit set is Go = {61,62} where Cj is the unity of Gi,i = 1,2 ). □ 

A finite groupoid (G;Go) such that \ G \ = n and | Go | = m is 
called (ra; m) — groupoid or finite groupoid of type (n; m) . 

Example 1.5. (i) Each finite groupoid of type (n; 1) is a group. 

{ii) Each finite groupoid of type (n; n) is a nul groupoid. 
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{iii) The groupoid 3"(4.2)(R^) ( see, Example 1.3 (ii) ) is a finite 
transitive groupoid of type (4; 2). 

(iv) Let be the Klein 4 -group = { (1), a = (12)(34), r = 
(13)(24), (JOT = (14)(23) } C ^4 ( it is a subgroup of the symmetric group 
St^ of degree 4 ). We have = = (1) and t o a = a o t. 

We consider the disjoint union G = K4 ]J Z4 of the groups and 
Z4, where Z4 = { 0,1,2,(3) } is the group of congruences classes of 
integers modulo 4. We obtain a groupoid G of order 8 with unit set 
Go = { (1),0} of type (8; 2). 

The structure functions a, (3 ,l and fi of G = K4 ]J Z4 are given in 
the following tables: 



X 


(1) 


a 


T 


a T 
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2 
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a{x) 


(1) 


(1) 


(1) 


(1) 














I3{x) 


(1) 
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(1) 
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T 
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2 
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a T 
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1 
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3 





2 
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3 
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1 


2 



□ 



2. The program BGroidAPl for to test if an universal algebra 
is a groupoid 

We consider a given finite universal algebra (G, a, P, /x, l; Gq) such that 
I G I = n and | Gq | = m with 1 < m < n. We denote the elements 
of G by ai, 02, ■ • • , am, Qm+ i, • • • , Qn such that Gq = { ai, 02, • • • , }. 
Hence, the elements ojt, = l,m are the units of G. 

We give an algorithm for decide if the universal algebra (G, a, /3, i; Gq) 
is a Go - groupoid. This algorithm is constituted by the following stages. 

Stage I. We introduce the initial data: n - the number of elements of 
G; m - the number of elements of Go; the functions a,(5,i and /x given 
by its tables of structure. 

Stage II. Test if the universal algebra {G,a,(3,iJ.,L;Go) considered in 
the first stage is a groupoid. For this, the following steps are executed: 
step 1. {G,a,l3,fj,,L) is a structure well-defined, i.e. the functions a, (3 
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are surjections, l is injective and /x is defined on the composable pairs 
G(2) with values in G; 

step 2. {G,a,P,fi) is a semigroupoid, i.e. the multiplication law /i is 

associative; 

step 3. the semigroupoid {G; Go) is a monoidoid, i.e. the identities prop- 
erty is verified; 

step 4. the monoidoid (G; Go) is a groupoid, i.e. each element of G is 
invcrtible. 

step 5. If the above steps are satisfied, make the tables of the structure 
functions a,(3,L and fj, and write the mesage "G is a groupoid". 

Let us we present the correspondence between the initial data and input 
data: 



G — { ai,a2, ...... . ,am,am+i, ■ ■ ■ ,an } ^ 

Initial data <- 
\ G \ = n < — > n 



{ 1, 2, . . . ,m,m + 1, . . . ,n } 
Input data 



Go 



m < — > m 





ai 






Om+1 




an 


a{ak) 


ai 




a-fyi 


"(Om+l) 




a{an) 




ai 




a-fyi 


/5(am+i) 






i{ak) 


ai 




0"m 


'-(Om+l) 




i{an) 



m ui{m + 1) ■ ■ ■ ui{n) 
m Ur{m + 1) ••• Ur{n) 
m inv{m + 1) ■ ■ ■ inv{n) 









ak 






ai 






























aj ■ a,, 


















an 













an ■ 


■ OlA; • • 


ain 


021 • 


• 02fc ■ ■ 


02n 


aji ■ 


■ ajk ■ ■ 


ajn 


Onl • 


ank 


ann 



In the table of /x the element p,{aj,ak) = aj ■ a^ is defined iff P{aj) = 
a{ak)- The absence of an element from the arrow "j" and the column 
"A;" indicates the fact that the pair {aj,ak) E G x G is not composable. 
The clement ajk is represented by if the product aj ■ is not defined. 

Example 2.1. Consider the groupoid G = !J(4.2)R^ given in Example 
1.3 (ii). We have 

G = { fi = Idox, /2 = Idoy, h = ^Ox, /4 = (^Oy } < — > { 1, 2, 3, 4 } 

Initial data < — > Input data 
I G I = 4 i — > 4 
I Go I = 2 < — > 2 
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fk 


fl 


f2 


fs 


/4 


a{fk) 


fl 


f2 


fl 


f2 


Pifk) 


fl 


f2 


f2 


fl 


i{fk) 


fl 


f2 


f\ 


fs 





fl 


/2 


fs 


/4 


fl 


fl 




fs 




f2 




/2 




/4 


fs 




fs 




fl 


/4 


/4 




/2 





1 


2 


1 


2 


1 

1 


9 


9 


1 


1 


2 


4 


3 


1 





3 








2 





4 





3 





1 


4 





2 






□ 



The implementation of the above algorithm on computer is realized in 
the program BGroidAPi. This program is composed from two modules 
denoted by unitll.dfm and unitll.pas . The module unitll.pas is 
composed from the principal program followed of procedures and functions. 
This is presented as follows. 

unit Unitl; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
Dialogs, 

Grids, DBGrids, ShcllAPI, Db, DBTables, StdCtrls, Menus, ExtCtrls, 
ComCtrls, ToolWin, Spin; 

const 

nmax = 200; 

type 

TForml = class (TForm) 
MainMenul: TMainMenu; 
Filel: TMcnuItcm; 
OpenFilel: TMenuItem; 
SaveFilel: TMenuItem; 
GroupBoxl: TGroupBox; 
StringCridl: TStringGrid; 
StringGrid2: TStringGrid; 
OpenDialogl: TOpenDialog; 
SaveDialogl: TSaveDialog; 
ToolBarl: TToolBar; 
Splitter4: TSplitter; 
ToolButtonl: TToolButton; 
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Newl: TMenuItem; 

ToolBar3: TToolBar; 

ToolButton4: TToolButton; 

ToolButtonS: TToolButton; 

Label2: TLabel; 

SpinEditl: TSpinEdit; 

ToolButton6: TToolButton; 

Labels : TLabel; 

SpinEdit2: TSpinEdit; 

StatusBarl: TStatusBar; 

ToolButtonS: TToolButton; 

ToolButtonll: TToolButton; 

procedure FormShow(Sender: TObject); 

procedure Button2Click(Sender: TObject); 

procedure StringGridlSetEditText(Sender: TObject; ACoI, ARow: 

Integer; 

const Value: String); 
procedure StringGrid2SetEditText(Sender: TObject; ACoI, ARow: 

Integer; 

const Value: String); 
procedure OpenFilelClick(Sender: TObject); 
procedure SaveFilelClick(Sender: TObject); 
procedure NewlClick(Sender: TObject); 
procedure ToolButton4Click(Sender: TObject); 
procedure ToolButton3Click(Sender: TObject); 
private 
err_message : String; 

m, n : Integer; 
h : array[0..nmax, 0..nmax] of Byte; 
u_left, u_right, inv : array [0..nmax] of Integer; 

procedure WMDropFiles(var Msg: TWMDropFiles) ; message WM_DROPFILES; 
procedure PerformFilcOpen (const FileNamel : string); 
procedure PerformFilcSave(const FileNamel : string); 
procedure MakeUnitsTable; 

procedure MakeGroupoidTable; 
function ToStr(x : Integer) : String; 
function IsStructure : Boolean; 
function IsSemigroupoid : Boolean; 
function IsMonoidoid : Boolean; 
function IsGroupoid : Boolean; 
public 

end; 
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var 

Forml: TForml; 
implementation 

{$R *.DFM} 

procedure TForml. FormShow(Sender: TObject); 
var 

i, j : Byte; 

begin 

Dr agAcceptFiles (Handle , True) ; 
StringGridl.EditorMode := True; 
n := 0; 

m := 0; 

for i := to nmax do 

for j := to nmax do 

j] := 0; 
for i := to nmax do begin 
u_left[i] := 0; 
u_right[i] := 0; 
inv[i] := 0; 
end; 
end; 

function TForml. ToStr; 
var 

ss : String; 

begin 

str(x, ss); 
ToStr := ss; 
end; 

procedure TForml. MakeUnitsTable; 
var 

i : Integer; 

begin 

StringGrid2.RowCount := 4; 
StringGrid2.ColCount := n + 1; 
StringGrid2.Cells[0, 1] := 'uJ'; 
StringGrid2. Cells [0, 2] := 'u_r'; 
StringGrid2. Cells [0, 3] := 'inv'; 
for i := 1 to n do begin 

StringGrid2.Cells[i, 0] := tostr(i); 
StringGrid2. Cells [i, 1] := tostr(u_lcft[i]); 
StringGrid2.Cells[i, 2] := tostr(u_riglit[i]); 



10 



StringGrid2.Cells[i, 3] := tostr(inv[i]) 

end 
end; 

procedure TForml .MakeGroupoidTable; 

var 

i, j : Integer; 
begin 

StatusBarl. SimpleText := 'G has not been tested'; 
if n > then begin 
StringGridl.RowCount := n + 1; 
StringGridl.ColCount := n + 1; 
for i := 1 to n do begin 
StringGridl.Cells[0, i] := tostr(i); 
StringGridl.Cehs[i, 0] := tostr(i); 
end; 

for i := 1 to n do 
for j := 1 to n do 
if h[i, j] <> then 

StringGridl.Cens[j, i] := tostr(h[i, j]) 
else 

StringGridl.CellsO, i] := " 
end else begin 
StringGridl.RowCount := 2; 
StringGridl.ColCount := 2 

end; 

MakeUnitsTable 
end; 

function TForml. IsStructure; 
var 

i, j : Byte; 

begin 

IsStructure := true; 
for i := 1 to n do begin 

if (u_left[i] = 0) or (u_right[i] = 0) or (inv[i] = 0) then begin 
IsStructure := false; 
err_message := 'Structure incomplete'; 
exit 
end 
end; 

for i := 1 to n do for j := 1 to n do 

if (u_right[i] = uJeftp]) and (h[i, j] = 0) then begin 
IsStructure := false; 
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err_message := 'Structure incomplete'; 
exit 
end 

end; 

function TForml.IsSemigroupoid; 
var 

i, j, k : Byte; 

begin 

if IsStructure then begin 
IsSemigroupoid := true; 

for i := 1 to n do for j := 1 to n do if u_right[i] = uJeftp] then 
for k := 1 to n do if u_right[j] = uJcft[k] then 
if h[h[i, j], k] <> h[i, h[j, k]] then begin 
IsSemigroupoid := false; 

err_message := tostr(i) + ', ' + tostr(j) + ', ' + tostr(k) + ' - 
not asociative'; 

exit 
end 

end else IsSemigroupoid := false 
end; 

function TForml.IsMonoidoid; 
var 

i : Byte; 

begin 

if IsSemigroupoid then begin 
IsMonoidoid := true; 
for i := 1 to n do 
if (h[u_left[i], i] <> i) or (h[i, u_right[i]] <> i) then begin 
IsMonoidoid := false; 
err_niessage := tostr(i) + ' has no unit'; 
exit 
end 

end else IsMonoidoid := false 
end; 

function TForml.IsGroupoid; 
var 

i : Byte; 

begin 

if IsMonoidoid then begin 
IsGroupoid := true; 
for i := 1 to n do begin 
if u_right[i] = uJeft[inv[i]] then 
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if h[i, inv[i]] <> u_left[i] then begin 
IsGroupoid := false; 

err .message := tostr(i) + ' has no inverse'; 
exit 
end; 

if uj'ight[inv[i]] = u_left[i] then 

if h[inv[i], i] <> u_right[i] then begin 
IsGroupoid := false; 

err .message := tostr(i) + ' - has no inverse'; 
exit 
end 

end 

end else IsGroupoid := false 
end; 

procedure TForml.WMDropFiles(var Msg: TWMDropFiles); 

var 

CFileName: array[O..MAX_PATH] of Char; 
begin 
try 

if DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH) > then 
begin 
{CheckFileSave;} 
PerformFileOpen(CFileName) ; 
Msg.Result := 0; 
end; 
finally 

DragFinish(Msg.Drop) ; 
end; 
end; 

procedure TForml.PerformFileOpen(const FileNamel : string); 
var 

fin : TextFile; 
i, j : Integer; 
begin 

AssignFile(fin, FileNamel); 
reset (fin); 
readln(fin, n); 
readln(fin, m); 
readln(fin); 
for i := 1 to n do 

read(fin, u_left[i]); 
for i := 1 to n do 



13 



read(fin, u_right[i]); 
for i := 1 to n do 

read(fin, inv[i]); 
for i := 1 to n do 

for j := 1 to n do 

read(fin, h[i, j]); 
CfoscFilc(fin); 
MakeGroupoidTable; 
end; 

procedure TForml.PerformFileSave(const FileNamel : string); 
var 

f : TextFile; 
i, j : Integer; 
begin 

AssignFile(f, FileNamel); 

rewritc(f); 

writeln(f, n); 

writeln(f, m); 

writeln(f); 

for i := 1 to n do 

write(f, uJeft[i], ' '); 
writeln(f); 
for i := 1 to n do 

write(f, u_right[i], ' '); 
writeln(f); 
for i := 1 to n do 

write(f, inv[i], ' '); 
writeln(f); 
writeln(f); 

for i := 1 to n do begin 

for j := 1 to n do 

write(f, h[i, j], "); 
writeln(f); 
end; 

CloseFile(f) 
end; 

procedure TForml.Button2Click(Sender: TObject); 
begin 

MakeGroupoidTable; 
err .message := "; 
if IsGroupoid then 

StatusBarl. SimpleText := 'G is a groupoid' 



14 



else 

StatusBarl. SimpleText := err .message; 

end; 

procedure TForml.StringGridlSctEditText(Sender: TObject; ACol, 
ARow: Integer; const Value: String); 

var 

nr : Byte; 
cod : Integer; 
begin 

Val(Value, nr, cod); 
if cod <> then 

li[ARow, ACol] := 

else 

h[ARow, ACol] := nr 

end; 

procedure TForml.StringGrid2SetEditText(Sender: TObject; ACol, 
ARow: Integer; const Value: String); 

var 

nr : Byte; 
cod : Integer; 
begin 

Val( Value, nr, cod); 

if cod <> then nr := 0; 

case ARow of 

1 : uJeft[ACol] := nr; 

2 : uj-ight[ACol] := nr; 

3 : inv[ACol] := nr 

end 
end; 

procedure TForml.OpenFilclClick(Sender: TObject); 
begin 

if OpenDialogl. Execute then 

Per for mFileOp en ( OpenDialogl . FileName) 

end; 

procedure TForml.SaveFilelClick(Sender: TObject); 
begin 

if SaveDialogl. Execute then 
PerformFileSave(SaveDialogl. FileName) 

end; 

procedure TForml.NewlClick(Sender: TObject); 
begin 
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SpinEditl. Value := n; 
SpinEdit2. Value := m; 

ToolBarS.Show; 
ToolBarl.Hide 
end; 

procedure TForml.ToolButton3Click(Sender: TObject); 
begin 

ToolBarl.Show; 
ToolBarS.Hide 

end; 

procedure TForml.ToolButton4Click(Sender: TObject); 
var 

i, j : Byte; 

begin 

n := SpinEditl. Value; 

m := SpinEdit2.Value; 
for i := 1 to n do 

for j := 1 to n do 

h[i, j] := 0; 
ToolBarl.Show; 
TooIBarS.Hide; 
MakeGroupoidTable 
end; 
end. 

We illustrate the utilisation of the program BGgroidAPl in the fol- 
lowing examples. 

Example 2.2. Consider the universal algebra (G, a, /3, ji, t;Go), where 
G = { xi,X2,X3,X4,X5,X6,X7,xs,xg }, Go = { Xi, X2, x^ } and the inputs 
data are the following: 
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Execute the program BGroidAPl for G = { xj | j = 1,9 } and the 
window program of obtained results is presented in the Figure ^ 
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Figure 1: A (9; 3) - groupoid 

Therefore, G is a groupoid of type (9; 3). □ 
Example 2.3. Consider the universal algebra {G, a, (3, ^, l;G()), where 

G = { ai, a2, as, a4, as, ag }, Gq = { ai } and the inputs data are the 

following: 



6 
1 



1 2 3 4 5 6 

2 3 1 6 4 5 



3 1 2 5 6 4 
^^^^^^ 456123 
^^^^^^ 564312 
1 3 2 4 6 5 6 4 5 2 3 1 

□ 

Execute the program BGroidAPl for G={afe|A; = l,6} and the 
window program of obtained results is presented in the Figure |21 
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Figure 2: A monoid which is not a group 



Therefore, G is not a group oid of type (6; 1) ( hence , G is not a 
group ). We have that G is a monoid. □ 

Theorem 2.1. (theorem of classification ) Lei {G,a, /3, ^, l;Go) be 
a groupoid of type (4; 2). Then the groupoid G is isomorphic with one 
from the following groupoids: 

W G^{e}LJZ3; (u) G^ZalJZa; (m) G ^ 3-(4.2)(R.') 

where 9"(4.2)(R^) is the groupoid of saltus functions defined on the axes 
of coordinates in a plane. 

Proof. Let the groupoid (G, a, /?,//, i; Go) of type (4; 2), where G = 
{01,02,03,04} and Go = {01,02}. 

For the surjections a,f3 : G — > Gq with properties a(ofc) = /?(ofc) = 
Ofc, for A: = 1,2 exists the fohowing situations given by the tables : 
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In the Case 1, for the injective map t : G ^ G with property 
I'iO'k) = o-ki for k = 1,2 exists the following cases given by the tables: 
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In the Case 1 the set G(2) of eomposable pairs of the groupoid (G; Go) 
is G(2) = {(ai,ai); (02,02); (02,03); (02,04); (03,02); (03,03); (03,04); (04,02); 
(04,03); (04,04)}. 

Case 1.1. Using the fact that fi{ak,ak) = for k = 1,2 and the 
properties of the functions a,P and l , the structure table of n in the 
situation of Case 1.1 is the following : 
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In this case, it follows that for fi we have the following situations: 
Cases 1.1.1 - 1.1.9 obtained by taking //(a3,04) G { 02,03,04 } and 

//(04,03) € { 02,03,04 }. 

If we introduce the initial data in each situation of Case 1.1.1-1.1.9 

and apply the program BGroidAPl, we obtain that (G;Go) is not a 
groupoid. 

Case 1.2. Using the fact that ii{ak,ak) = o^ for k = 1,2 and the 
properties of the functions a, (3 and i , the structure table of fi in the 
situation of Case 1.2 is the following : 
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In this case, it follows that for fi we have the following situations: 
Cases 1.2.1 - 1.2.9 obtained by taking /x(o3,a3) G { 02,03,04 } and 
/x(a4,04) G { 02,03,04 }. 

If we introduce the initial data in each situation of Case 1.1.1-1.1.9 
and apply the program BGroidAPl, we obtain that (G;Go) is a groupoid 
when /x(o3, 03) = 04 and /x(o4, 04) = 03 (in the other cases, G is not a 
groupoid ). For this situation, the structure functions a,l3,L and /x are 
given by the tables: 
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It is easy to prove that this groupoid is the union of two groups and it 
is isomorphic with { e } ]J Z3. Hence, G = { e } ]J Z3. 

Case 2. Applying the same methode as in the Case 1, we obtain that 
the groupoid G is the disjoint union Gi U G2, where Gi = { 01,03 } 
such that a| = ai and G2 = { 02,04 } such that = 02- 

For this groupoid, the structure functions a,(3,L and fi are given by 
the tables: 
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It is easy to prove that this groupoid isomorphic with Z2 JJ Z2 . Hence, 
G^Z2L[Z2. 

Case 3. Similarly, we obtain that the structure functions of the groupoid 
G are given by the tables: 
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It is easy to prove that this groupoid isomorphic with 5'(4.2)(R^), see 
Example . Hence, G = 3^(4-2) (R^). We observe that in this case , G is not 
a group bundle. □ 

For more details concerning the program BGroidAPl, the reader can 
be inform at e-mail adress: ivan@hilbert.math.uvt.ro. 
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